home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc2_x / scincprs.sit / Command stack / card_3656.txt < prev    next >
Text File  |  1991-02-03  |  2KB  |  107 lines
  1. -- card: 3656 from stack: in
  2. -- bmap block id: 4071
  3. -- flags: 0000
  4. -- background id: 2690
  5. -- name: goCard
  6. ----- HyperTalk script -----
  7. global card field "whereItIs"
  8.  
  9.  
  10. -- part 1 (field)
  11. -- low flags: 00
  12. -- high flags: 0007
  13. -- rect: left=56 top=133 right=256 bottom=457
  14. -- title width / last selected line: 0
  15. -- icon id / first selected line: 0 / 0
  16. -- text alignment: 0
  17. -- font id: 3
  18. -- text size: 12
  19. -- style flags: 0
  20. -- line height: 16
  21. -- part name: whereItIs
  22. ----- HyperTalk script -----
  23. on openField
  24.   set lockScreen to true
  25.   global x
  26.   if the selectedText <> "" then
  27.     put the selectedText into x
  28.     send findCard
  29.   end if
  30. end openField
  31.  
  32. on findCard
  33.   global x
  34.   put 0 into loopVariable
  35.   put the number of lines in card field "whereItIs" into loopNumber
  36.   repeat for loopNumber
  37.     add 1 to loopVariable
  38.     if loopVariable = x then
  39.       put item 3 of line loopVariable of card field "whereItIs" into cardTarget
  40.       go to "References"
  41.       go to card cardTarget
  42.     end if
  43.   end repeat
  44. end findCard
  45.  
  46.  
  47. -- part 2 (button)
  48. -- low flags: 00
  49. -- high flags: A003
  50. -- rect: left=116 top=68 right=94 bottom=224
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: Proceed
  59. ----- HyperTalk script -----
  60. on mouseUp
  61.   --go references
  62.   --put the number of last card into tfield
  63.   --repeat for tfield
  64.   --select text of background field 6
  65.   --put selection into it
  66.   --put it into background field 7
  67.   --select text of background field 5
  68.   --put selection into it
  69.   --put empty into background field 5
  70.   --put it into background field 6
  71.   --go next card
  72.   --end repeat
  73. end mouseUp
  74.  
  75.  
  76.  
  77. -- part 3 (button)
  78. -- low flags: 00
  79. -- high flags: A003
  80. -- rect: left=275 top=67 right=93 bottom=369
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: Test
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   go references
  92.   put the number of last card into tfield
  93.   repeat for tfield
  94.     go next card
  95.   end repeat
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part contents for background part 3
  101. ----- text -----
  102. 3
  103.  
  104. -- part contents for card part 1
  105. ----- text -----
  106. 1, 's and Si(1-x)Ge(x) HBT's.,                                  4
  107.